Obnova DOS aplikace z listy

Otázka od: Petr Dedecek

14. 4. 2004 12:35

Ahoj,
mam pod XP spustenu DOS aplikaci na cele plose. Delphi aplikace je
trvale spustena. DOS aplikace posle Delphi aplikaci textak, ktery se
zpracuje a zobrazi, potom Delphi aplikace spadne do tray zony. Ale
nedari se mi zpet automaticky obnovit DOS aplikaci, ktera mezitim spadla
na listu. Nevite jak vratit DOS aplikaci na celou plochu ?
Dik za radu.

Petrd

Odpovedá: Frantisek Bohac

15. 4. 2004 13:15

Je potreba presunou aplikaci do popredi:

procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
  external user32 Name 'SwitchToThisWindow';
         {x = false: Size unchanged, x = true: normal size}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := FindWindow(Nil,'c:\winnt\system32\edit.com'); // zjisti handle okna
  SwitchToThisWindow(i, True); // presune aplikaci do popredi
end;

S pozdravem

Frantisek Bohac

Petr Dedecek napsal(a):

>Nevite jak vratit DOS aplikaci na celou plochu ?
>
>